program inttest
	implicit none
	write(*,*) idint(1.3d0)
	write(*,*) idint(-1.3d0)
	stop
end program
